﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<!--#include file="conn.asp"-->
<!--#include file="getuc.asp"-->
<%	
select case v
case "0"
we0="<br/>"
%>
<card id="main" title="眼跳占卜"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>眼跳占卜</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
%>
<%=we%><img src='pic.jpg' alt='眼跳占卜' noselect = 'true'/><br/>眼皮乱跳，让你很害怕吗？是祸是福？是灾是喜？<%=we0%><%=we%>想知道是情人想你，呃，还是老妈在念叨？又或者是老板要找你“谈话”？<br/>别急别急，眼跳占卜释义都会告诉你<%=we0%><%=dao%>=眼跳占卜结果=<%=we0%><%=sou%>
<%
dim sqlstr
if request("chk") = "yantiao" then
sqlstr="select * from yantiao where title='"&trim(cstr(request("p5")))&"'"
set rs=connnn.execute(sqlstr)
%>
<%=rs("title")%><br/>
<%=rs("content1")%>
<%else%>
response.Write "眼跳占卜查询内容出错!"
<%end if%>
<%
'输出
If Err Then
response.Write "眼跳占卜查询内容出错!"
err.Clear
End If
%>
<%=we0%><%=we%>
<%
Response.Write("<a href='index.asp?sid=" & sidd & "'>返回上级</a>")
Response.Write we0
end Function
%>
<!--#include file="function.asp"-->